# 1 "/opt/topspin/exp/stan/nmr/lists/pp/user/wet5"
;wet5
;avance-version (09/05/15)
;WET solvent suppression with shape pulse
;no C-13 decoupling
;
;$CLASS=HighRes
;$DIM=1D
;$TYPE=
;$SUBTYPE=
;$COMMENT=


prosol relations=<lcnmr>


# 1 "/opt/topspin/exp/stan/nmr/lists/pp/Avance.incl" 1
;Avance3.incl
;   for AV III
;
;avance-version (07/12/14)
;
;$CLASS=HighRes Incl
;$COMMENT=





























































































































































;$Id: Avance3.incl,v 1.6.2.2 2007/12/14 16:06:46 ber Exp $
# 16 "/opt/topspin/exp/stan/nmr/lists/pp/user/wet5" 2

# 1 "/opt/topspin/exp/stan/nmr/lists/pp/Grad.incl" 1
;Grad2.incl  -  include file for Gradient Spectroscopy
;   for 1
;
;avance-version (07/01/17)
;
;$CLASS=HighRes Incl
;$COMMENT=



















define list<gradient> EA=<EA>



;$Id: Grad2.incl,v 1.12 2007/01/22 14:22:35 ber Exp $
# 17 "/opt/topspin/exp/stan/nmr/lists/pp/user/wet5" 2



define delay WETWAIT


"d11=30m"
"d12=20u"
"d13=4u"



"WETWAIT=2m-d16"


"acqt0=-(p1*6/3.1416)-4u"

"sp7=sp1"
"sp8=sp1-0.5"
"sp9=sp1+0.6"
"sp10=sp1"


# 1 "mc_line 40 file /opt/topspin/exp/stan/nmr/lists/pp/user/wet5 expanding definition part of mc command before ze"
define delay MCWRK
define delay MCREST
"MCWRK = 0.333333*30m"
"MCREST = 30m - 30m"
    dccorr
# 40 "/opt/topspin/exp/stan/nmr/lists/pp/user/wet5"
1 ze
# 1 "mc_line 40 file /opt/topspin/exp/stan/nmr/lists/pp/user/wet5 expanding definition of mc command after ze"
# 41 "/opt/topspin/exp/stan/nmr/lists/pp/user/wet5"
# 1 "mc_line 41 file /opt/topspin/exp/stan/nmr/lists/pp/user/wet5 expanding start label for mc command"
2 MCWRK  * 2
LBLF0, MCWRK
  MCREST
# 42 "/opt/topspin/exp/stan/nmr/lists/pp/user/wet5"
  50u setnmr3|0 setnmr0|34|32|33 ctrlgrad 0
  d12 pl0:f1
  d13
  (p11:sp7 ph5):f1
  4u
  p16:gp21
  d16 pl0:f1
  (p11:sp8 ph6):f1
  4u
  p16:gp22
  d16 pl0:f1
  (p11:sp9 ph6):f1
  4u
  p16:gp23
  d16 pl0:f1
  (p11:sp10 ph6):f1
  4u
  p16:gp24
  d16
  20u setnmr3^0 setnmr0^34^32^33 ctrlgrad 7
  d12 pl9:f1
  d1 cpds1:f1
  4u do:f1
  d12 pl1:f1
  p1 ph1
  4u
  p1 ph2
  4u
  p1 ph3
  4u
  p1 ph4
  go=2 ph31
# 1 "mc_line 74 file /opt/topspin/exp/stan/nmr/lists/pp/user/wet5 expanding mc command in line"
  MCWRK wr #0
  MCWRK zd 
  lo to LBLF0 times td0

  MCWRK
# 75 "/opt/topspin/exp/stan/nmr/lists/pp/user/wet5"
  20u setnmr3^0 setnmr0^34^32^33 ctrlgrad 7			
exit


ph1=1 3 3 1 2 0 0 2
ph2=2 0 2 0 3 1 3 1
ph3=3 1 1 3 0 2 2 0
ph4=0 2 0 2 1 3 1 3
ph5=0
ph6=1
ph29=0
ph31=0 2 0 2 1 3 1 3


;pl0 : 120 dB
;pl1 : f1 channel - power level for pulse (default)
;sp1: f1 channel - shaped pulse
;        powerlevel for 90 degree pulse
;sp7: f1 channel - shaped pulse
;sp8: f1 channel - shaped pulse
;sp9: f1 channel - shaped pulse
;sp10: f1 channel - shaped pulse
;p1 : f1 channel -  90 degree high power pulse
;p11: f1 channel -  90 degree shaped pulse
;p16: homospoil/gradient pulse                       [2msec]
;d1 : relaxation delay; 1-5 * T1
;d11: delay for disk I/O                             [30msec]
;d12: delay for power switching                      [20 usec]
;d13: short delay                                    [4 usec]
;d16: delay for homospoil/gradient recovery
;NS: 8 * n, total number of scans: NS * TD0
;DS: 16


;use gradient ratio:    gp21 : gp22 : gp23 : gp24
;                         80 :   40 :   20 :   10

;for z-only gradients:
;gpz21: 80%
;gpz22: 40%
;gpz23: 20%
;gpz24: 10%

;use gradient files:   
;gpnam21: SINE.100
;gpnam22: SINE.100
;gpnam23: SINE.100
;gpnam24: SINE.100


;use power levels               sp7        sp8        sp9        sp10
;                       sp1     +0.87      -1.04      +2.27      -5.05



;$Id: wet,v 1.3.6.1 2009/05/15 13:40:30 ber Exp $
